home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / rexx / setconfig.bed < prev    next >
Text File  |  1997-12-03  |  710b  |  43 lines
  1. /*
  2. ** $VER: SetConfig.bed 1.0 (14.01.96)
  3. **
  4. ** Load a configuration according to the filename extension
  5. **
  6. ** Written by Marco Negri
  7. */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. GetFileInfo
  12. PARSE VAR RESULT . . '"'name'"'
  13.  
  14. IF NAME ~= "" THEN DO
  15.     dotpos = LASTPOS('.', name)
  16.  
  17.     IF dotpos = 0 THEN
  18.         ext = ""
  19.     ELSE
  20.         ext = SUBSTR(name, dotpos+1)
  21.     END
  22.  
  23.     SELECT
  24.  
  25. /*
  26. ** You can insert here how many extensions you want:
  27. **
  28. ** For example:
  29. **
  30. ** WHEN (ext = 'asm') | (ext = 's') | (ext = 'a') THEN DO
  31. **     OpenPrefs "BED:Support/Assembler.prf"
  32. **     OpenDefinitions "BED:Support/Assembler.dfn"
  33. ** END
  34. **
  35. */
  36.  
  37.         WHEN (ext = 'c') | (ext = 'h') THEN DO
  38.             OpenPrefs "BED:Support/SAS_C.prf"
  39.             OpenDefinitions "BED:Support/SAS_C.dfn"
  40.         END
  41.     END
  42. END
  43.